Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data.SqlHelper
Public Class Bolsas

    Public Function GenerarBolsa(ByVal CodPal, ByVal CodIOT, ByVal Fec, ByVal Can)
        Dim DS As New DataSet
        DS = ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "BolsaGenerar", New SqlParameter("@CodPal", CodPal), New SqlParameter("@CodIOT", CodIOT), _
        New SqlParameter("@Fec", Fec), New SqlParameter("@Can", Can))
        Return DS
    End Function

    Public Function ObtenerBolsas(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "BolsasObtener", New SqlParameter("@CodPal", Dat(0)), New SqlParameter("@EstDS", Dat(1)), _
        New SqlParameter("@EstRS", Dat(2)), New SqlParameter("@EstPN", Dat(3)), New SqlParameter("@EstPR", Dat(4)))
        Return DS
    End Function
End Class
